home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_34 / slidesho.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  2KB  |  67 lines
  1. 10 REM *****************************************************************
  2. 100 UNKNOWN OP: 0x3A
  3. 110 REPEAT
  4. 120 VARNAME
  5. 130 MODE
  6. 140 GOSUB
  7. 150 VARNAME
  8. 160 GOSUB
  9. 170 VARNAME
  10. 180 MODE
  11. 190 GOSUB
  12. 20 REM *                                                               *
  13. 200 UNTIL
  14. 210 UNKNOWN OP: 0x3A
  15. 220 REM **********     GET CHIOCE OF DRIVE      **********
  16. 230 VARNAME
  17. 240 SHOW
  18. 250 MODE
  19. 260 WINDOPEN
  20. 270 CURS
  21. 280 WINDOW
  22. 290 PRINT
  23. 30 REM *                         SLIDE SHOW                            *
  24. 300 VARNAME
  25. 310 SET ZONE
  26. 320 WINDOPEN
  27. 330 PRINT
  28. 340 VARNAME
  29. 350 SET ZONE
  30. 360 WINDOPEN
  31. 370 CURS
  32. 380 PRINT
  33. 390 REPEAT
  34. 40 REM *                      BY GROG THE FROG                         *
  35. 400 VARNAME
  36. 410 UNTIL
  37. 420 IF
  38. 430 CLS
  39. 440 HIDE
  40. 450 RETURN
  41. 460 UNKNOWN OP: 0x3A
  42. 470 REM **********        SLIDE SHOW BIT        **********
  43. 480 VARNAME
  44. 490 WHILE
  45. 50 REM *                                                               *
  46. 500 GOSUB
  47. 510 VARNAME
  48. 520 WEND
  49. 530 RETURN
  50. 540 UNKNOWN OP: 0x3A
  51. 550 REM **********    FADE PICTURES IN AND OUT   **********
  52. 560 CLEAR KEY
  53. 570 CURS
  54. 580 CLS
  55. 590 LOAD
  56. 60 REM *****************************************************************
  57. 600 FADE
  58. 610 WAIT
  59. 620 SCREEN COPY
  60. 630 FADE
  61. 640 WAIT
  62. 650 IF
  63. 660 RETURN
  64. 70 RESERVE
  65. 80 KEY
  66. 90 GOSUB
  67.